home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
demo sort string
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
108 lines
1000 N=20:DIMA$(N):PRINT"[147]UNSORTIERTE STRINGS WERDEN GENERIERT"
1010 FORI=1TON:A$="":FORJ=1TO 20:B$=CHR$(INT(RND(0)*26+65)):A$=A$+B$
1020 NEXT:A$(I)=A$:NEXT
1030 PRINT"[147]UNSORTIERT:":PRINT"[184][184][184][184][184][184][184][184][184][184]":FORI=1TON:PRINTA$(I):NEXT
1040 PRINT"SORTIEREN: TASTE DRUECKEN"
1045 GET A$:IF A$=""THEN1045
1050 POKE40352,65:REM 1.BUCHST.D.VAR
1060 POKE40353,128:REM 2.STELLE LEER
1070 POKE40355,INT(N/256) :REM N
1080 POKE40354,N-INT(N/256)*256:REM N
1090 SYS40371:REM 9DB3
1100 FE=PEEK(40356) :REM FEHLERFLAG
1110 IFFE=1THENPRINT"FEHLER - ARRAY NICHT GEFUNDEN":END
1120 IFFE=2THENPRINT"FEHLER - ARRAY NICHT EINDIMENSIONAL"
1140 PRINT"[147]SORTIERT:":PRINT"[184][184][184][184][184][184][184][184]":FORI=1TON:PRINTA$(I):NEXT:END
1150 FORI=1TON:PRINTA$(I):NEXT:END
1200 :
1300 :
50000 REM******************************
50007 FORF=40371TOF+429:READA:POKEF,A:NEXT
50008 RETURN
50009 DATA173,160,157,41,127
50010 DATA141,160,157,173,161
50020 DATA157,9,128,141,161
50030 DATA157,169,0,141,164
50040 DATA157,165,47,133,180
50050 DATA165,48,133,181,160
50060 DATA0,177,180,205,160
50070 DATA157,208,8,200,177
50080 DATA180,205,161,157,240
50090 DATA42,160,2,177,180
50100 DATA141,165,157,200,177
50110 DATA180,141,166,157,24
50120 DATA165,180,109,165,157
50130 DATA133,180,165,181,109
50140 DATA166,157,133,181,197
50150 DATA50,144,207,240,205
50160 DATA169,1,141,164,157
50170 DATA76,224,158,160,4
50180 DATA177,180,201,1,240
50190 DATA8,169,2,141,164
50200 DATA157,76,224,158,24
50210 DATA165,180,105,7,133
50220 DATA180,165,181,105,0
50230 DATA133,181,173,162,157
50240 DATA141,177,157,173,163
50250 DATA157,141,178,157,173
50260 DATA178,157,208,12,173
50270 DATA177,157,240,4,201
50280 DATA1,208,3,76,224
50290 DATA158,78,178,157,110
50300 DATA177,157,56,173,162
50310 DATA157,237,177,157,141
50320 DATA175,157,173,163,157
50330 DATA237,178,157,141,176
50340 DATA157,162,0,138,141
50350 DATA168,157,141,169,157
50360 DATA173,177,157,141,170
50370 DATA157,173,178,157,141
50380 DATA171,157,238,168,157
50390 DATA208,3,238,169,157
50400 DATA173,169,157,205,176
50410 DATA157,240,4,176,85
50420 DATA144,10,173,168,157
50430 DATA205,175,157,240,2
50440 DATA176,73,238,170,157
50450 DATA208,3,238,171,157
50460 DATA160,3,165,180,133
50470 DATA184,133,186,165,181
50480 DATA133,185,133,187,24
50490 DATA165,184,109,168,157
50500 DATA133,184,165,185,109
50510 DATA169,157,133,185,24
50520 DATA165,186,109,170,157
50530 DATA133,186,165,187,109
50540 DATA171,157,133,187,136
50550 DATA208,223,32,225,158
50560 DATA173,167,157,240,163
50570 DATA48,161,32,80,159
50580 DATA162,1,76,115,158
50590 DATA138,208,129,76,52
50600 DATA158,96,160,0,140
50610 DATA167,157,177,184,141
50620 DATA172,157,177,186,141
50630 DATA173,157,200,152,205
50640 DATA172,157,240,2,176
50650 DATA15,205,173,157,240
50660 DATA25,144,23,169,1
50670 DATA141,167,157,76,79
50680 DATA159,205,173,157,240
50690 DATA2,176,64,169,255
50700 DATA141,167,157,76,79
50710 DATA159,140,165,157,160
50720 DATA1,177,184,133,182
50730 DATA200,177,184,133,183
50740 DATA172,165,157,136,177
50750 DATA182,141,174,157,140
50760 DATA165,157,160,1,177
50770 DATA186,133,182,200,177
50780 DATA186,133,183,172,165
50790 DATA157,177,182,200,205
50800 DATA174,157,208,3,76
50810 DATA240,158,144,180,76
50820 DATA15,159,96,160,2
50830 DATA177,184,72,177,186
50840 DATA145,184,104,145,186
50850 DATA136,16,243,96,0